home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / orbit_fix.mln < prev    next >
Text File  |  1990-06-01  |  959b  |  28 lines
  1.  
  2. ;Beginning compilation on /u/kranz/xlib/orbit_fix.t
  3.  
  4.  
  5. ;** Warning: unreferenced variable ARGS
  6. ;   Location: in definition of GENERATE-FOREIGN-CALL
  7. GENERATE-FOREIGN-CALL
  8. POINTER->REP
  9. (VARIABLES
  10.   FREE (MIPS/FSTORE CALL-ARGS REP->POINTER SLINK/MAKE-EXTEND HEADER/DOUBLE-FLOAT
  11. LIST P SCRATCH LOOKUP-VALUE RISC/SRA A1 RISC/SRL A2 REVERSE PARASSIGN-EXTRA
  12. VECTOR GENERATE-MOVE CRIT-REG EXTRA SLINK/SAVED-CRIT EMIT ZERO SUBLIST
  13. %%CAR AN+1 MACHINE-NUM MAP MAX RISC/ADD MIPS/NOOP RISC/LOAD AN SP
  14. RISC/SLL SLINK/SAVED-SSP EXTRA-ARGS LINK-REG RISC/STORE GENERATE-SLINK-CALL
  15. ANY? SSP ASEMIT LOCK SLINK/SAVED-SP EVERY? CONS* A5 REG-OFFSET MIPS/FLOAD
  16. BUG NO-MORE-COND-CLAUSES MIPS/JALR LEAF-VALUE LENGTH NTHCDR RISC/SUB
  17. NIL-REG)
  18.   EARLY-BOUND (CADR)
  19.   DEFINED (GENERATE-FOREIGN-CALL POINTER->REP)
  20.   LSET ()
  21.   SET ()
  22.   ERROR ()
  23.   INTEGRATED (EQ? FX> NEQ? FX<= FX< ELSE CDR CAR NULL? OR-AUX FX+
  24. FX-)
  25.   LOCAL ()
  26.   UNREFERENCED (GENERATE-FOREIGN-CALL))
  27. ; assembled 9000 bytes
  28.